home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 July: Mac OS SDK / Dev.CD Jul 96 SDK / Dev.CD Jul 96 SDK1.toast / Development Kits (Disc 1) / MacTCP / MacTCP Developer Tools / HyperCard MacTCP Toolkit 1.0 / Source Code ƒ / TCPVersion.p < prev   
Encoding:
Text File  |  1994-11-21  |  1.0 KB  |  52 lines  |  [TEXT/MPS ]
  1. (*
  2.     TCPVersion() -- Return the current version number.
  3.  
  4.     To compile and link this file using Macintosh Programmer's Workshop,
  5.  
  6.         pascal -w TCPVersion.p
  7.         link -m ENTRYPOINT -o HyperCommands -rt XFCN=7865 -sn Main=TCPVersion ∂
  8.             TCPVersion.p.o "{Libraries}HyperXLib.o"
  9.  
  10.     © Copyright 1988 by Apple Computer, Inc.
  11.  
  12.     Initial coding 12/88 by Harry R. Chesley.
  13. *)
  14.  
  15. {$R-}
  16.  
  17. {$S TCPVersion }     { Segment name must be the same as the command name. }
  18.  
  19. unit DummyUnit;
  20.  
  21. interface
  22.  
  23. uses MemTypes, QuickDraw, OSIntf, HyperXCmd;
  24.  
  25. procedure EntryPoint(paramPtr: XCmdPtr);
  26.     
  27. implementation
  28.  
  29. procedure TCPVersion(paramPtr: XCmdPtr); forward;
  30.  
  31. procedure EntryPoint(paramPtr: XCmdPtr);
  32.  
  33.     begin
  34.         TCPVersion(paramPtr);
  35.     end;
  36.  
  37. procedure TCPVersion(paramPtr: XCmdPtr);
  38.  
  39.     procedure Fail(errMsg: Str255); { set theResult and quit }
  40.         begin
  41.             paramPtr^.returnValue := PasToZero(paramPtr,errMsg);
  42.             exit(TCPVersion);
  43.         end;
  44.  
  45.     begin
  46.         if paramPtr^.paramCount <> 0 then Fail('§§§ parameter count is not 0 §§§');
  47.  
  48.         paramPtr^.returnValue := PasToZero(paramPtr,'1.0, 5/17/89')
  49.     end;
  50.  
  51. end.
  52.